home *** CD-ROM | disk | FTP | other *** search
/ Nordpool / nordpool mediagroup backgrounds vol 001.iso / scala / scripts / arexxdemo.scr < prev    next >
Text File  |  1995-10-26  |  5KB  |  161 lines
  1. V3.0
  2.  
  3. MOUSE on
  4. FKEYS on
  5. INTERACTIVE on
  6.  
  7. EVENT Titel
  8. SET Buchstabe \"\\"\
  9. BLANK 640 512 4 lace hires 0
  10. TABS 100 200 300 400 500
  11. MARGINS on 32 607
  12. PALETTE 038 fff ccc aaa 888 666 444 000 c00 d60 fb0 080 58b 53c a2b f3b
  13. FONT helvetica.font 14 24
  14. COLOR 1 7 7 7 7 0 1 7 0 1 2 3 5 4 1
  15. ATTRIBUTES remap kerning
  16. STYLE 0 3 4 3 6 1 1 21 3 1 13 0 2 5 1 0 4 4 3
  17. TEXTWIPE dump speed 1
  18. TEXT 30 30 "Diese Script zeigt die Verwendung von AREXX"
  19. ATTRIBUTES kerning
  20. TEXT 30 56 "zum Speichern und Einlesen von Datein."
  21. TEXT 30 82 ""
  22. TEXT 30 108 "Es werde die AREXX-Scripts"
  23. TEXT 30 134 "- VARlesen.rexx"
  24. TEXT 30 160 "- VARspeichern.rexx"
  25. TEXT 30 186 "ben÷tigt."
  26. COLOR 1 8 7 7 7 0 1 7 0 1 2 3 5 4 1
  27. ATTRIBUTES edge kerning
  28. TEXT 30 212 ""
  29. TEXT 30 238 "ACHTUNG:"
  30. TEXT 30 264 "Bei der Ausfⁿhrung wird auf Ihrer SYS-Partition"
  31. TEXT 30 290 "eine Datei mit dem Namen ScalaDatei erzeugt."
  32. TEXT 30 316 "Diese Datei kann jederzeit wieder gel÷scht werden,"
  33. TEXT 30 342 "sie dient lediglich zum speichern Ihrer Eingaben."
  34. TEXT 30 368 ""
  35. COLOR 1 7 7 7 7 0 1 7 0 1 2 3 5 4 1
  36. ATTRIBUTES kerning
  37. TEXT 30 394 "Mit freundlichen Grⁿ▀en,"
  38. TEXT 30 420 ""
  39. TEXT 30 446 "« 1995 by Pit Vetterick"
  40. FONT helvetica.font 8 15
  41. ATTRIBUTES remap kerning
  42. STYLE 0 3 4 3 6 1 1 13 2 1 13 0 2 5 1 0 4 4 3
  43. TEXT 476 478 "( linke Maustaste >> )"
  44. PAUSE -1
  45. END
  46.  
  47. EVENT Eingabe
  48. BLANK 640 512 4 lace hires 0
  49. TABS 100 200 300 400 500
  50. MARGINS on 32 607
  51. GRID on 10 10
  52. PALETTE 038 fff ccc aaa 888 666 444 000 c00 d60 fb0 080 58b 53c a2b f3b
  53. COLOR 1 7 7 7 7 0 1 7 0 1 2 3 5 4 1
  54. ATTRIBUTES kerning
  55. STYLE 0 3 4 3 6 1 1 8 1 1 13 0 0 5 0 0 4 4 3
  56. TEXTWIPE dump speed 1
  57. BOX 40 30 89 79
  58. BOX 120 30 169 79
  59. BOX 200 30 249 79
  60. COLOR 1 7 7 3 4 0 1 7 0 1 2 3 5 4 1
  61. STYLE 0 3 4 3 6 1 1 50 7 2 13 0 0 5 0 0 4 4 3
  62. BOX 500 380 609 479
  63. COLOR 1 7 7 7 7 0 1 7 0 1 2 3 5 4 1
  64. BOX 0 380 109 479
  65. FONT FranklinC.font 55 58
  66. COLOR 7 7 7 7 7 0 7 7 0 7 7 7 7 7 7
  67. ATTRIBUTES remap kerning
  68. STYLE 0 3 4 3 6 1 1 50 7 2 13 0 2 5 1 0 4 4 3
  69. TEXT 50 30 "A"
  70. ATTRIBUTES kerning
  71. TEXT 130 30 "B"
  72. TEXT 210 30 "C"
  73. ATTRIBUTES remap kerning
  74. TEXT 530 410 "OK"
  75. COLOR 8 7 7 9 6 0 8 7 0 8 8 9 6 9 8
  76. TEXT 80 230 "!BUCHSTABE"
  77. COLOR 1 7 7 7 7 0 1 7 0 1 2 3 5 4 1
  78. ATTRIBUTES kerning
  79. STYLE 0 3 4 3 6 1 1 50 7 2 13 0 0 5 0 0 4 4 3
  80. BOX 40 90 249 139
  81. FONT FranklinC.font 20 28
  82. COLOR 7 7 7 7 7 0 7 7 0 7 7 7 7 7 7
  83. ATTRIBUTES remap kerning
  84. STYLE 0 3 4 3 6 1 1 24 4 1 13 0 2 5 1 0 4 4 3
  85. TEXT 110 100 "Space "
  86. FONT FranklinC.font 55 58
  87. STYLE 0 3 4 3 6 1 1 50 7 2 13 0 2 5 1 0 4 4 3
  88. TEXT 20 410 "NEU"
  89. MARK replace 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
  90. SELECT replace 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
  91. BUTTON position 40 30 89 79  SET Buchstabe "Buchstabe A"  IF Buchstabe=A GOTO Eingabe  GOTO Eingabe
  92. BUTTON position 120 30 169 79  SET Buchstabe "Buchstabe B"  IF Buchstabe=B GOTO Eingabe  GOTO Eingabe
  93. BUTTON position 200 30 249 79  SET Buchstabe "Buchstabe C"  IF Buchstabe=C GOTO Eingabe  GOTO Eingabe
  94. BUTTON position 40 90 249 139  SET Buchstabe "Buchstabe \"\ \"\"  IF "Buchstabe=\"\ \"\" GOTO Eingabe  GOTO Eingabe
  95. BUTTON position 500 380 609 479  SET Quit Q  IF Quit=Q GOTO "VAR speichern"  GOTO Eingabe
  96. BUTTON position 0 380 109 479  SET Buchstabe "\"\ \"\"  GOTO Eingabe
  97. PAUSE -1
  98. END
  99.  
  100. EVENT "VAR speichern"
  101. EXECUTE "Nordpool:SCALA/ScaRexx/VARspeichern.rexx" arexx wait
  102. SET satz satz
  103. BLANK 640 512 4 lace hires 0
  104. TABS 100 200 300 400 500
  105. MARGINS on 32 607
  106. PALETTE f00 fff ccc aaa 888 666 444 000 c00 d60 fb0 080 58b 53c a2b f3b
  107. FONT HelveticaN.font 45 39
  108. COLOR 1 7 7 7 7 0 1 7 0 1 2 3 5 4 1
  109. ATTRIBUTES remap center kerning
  110. STYLE 0 3 4 3 6 1 1 33 5 1 13 0 2 5 1 0 4 4 3
  111. TEXTWIPE dump speed 1
  112. TEXT 319 109 ""
  113. FONT FranklinC.font 55 58
  114. COLOR 12 7 7 7 7 0 12 7 0 12 12 12 12 12 12
  115. ATTRIBUTES italics center kerning
  116. STYLE 0 3 4 3 6 1 1 50 7 2 13 0 2 5 1 0 4 4 3
  117. TEXT 204 179 "!Buchstabe"
  118. FONT HelveticaN.font 45 39
  119. COLOR 1 7 7 7 7 0 1 7 0 1 2 3 5 4 1
  120. ATTRIBUTES remap center kerning
  121. STYLE 0 3 4 3 6 1 1 33 5 1 13 0 2 5 1 0 4 4 3
  122. TEXT 11 54 "Der  von  Ihnen  eingegebene Text "
  123. ATTRIBUTES center kerning
  124. TEXT 28 288 " wird  nun  von  Scala  an  AREXX"
  125. TEXT 33 349 "ⁿbergeben  und  von  dort  unter"
  126. TEXT 51 408 "SYS:ScalaDatei  gespeichert ."
  127. PAUSE 5
  128. END
  129.  
  130. EVENT "VAR einlesen"
  131. EXECUTE "Nordpool:SCALA/ScaRexx/VARLesen.rexx" arexx wait
  132. BLANK 640 512 4 lace hires 0
  133. TABS 100 200 300 400 500
  134. MARGINS on 32 607
  135. PALETTE f00 fff ccc aaa 888 666 444 000 c00 d60 fb0 080 58b 53c a2b f3b
  136. FONT HelveticaN.font 45 39
  137. COLOR 1 7 7 7 7 0 1 7 0 1 2 3 5 4 1
  138. ATTRIBUTES remap center kerning
  139. STYLE 0 3 4 3 6 1 1 33 5 1 13 0 2 5 1 0 4 4 3
  140. TEXTWIPE dump speed 1
  141. TEXT 81 138 "AREXX  ⁿbergibt  nun  den"
  142. ATTRIBUTES center kerning
  143. TEXT 114 206 "Inhalt  der  -ScalaDatei-"
  144. TEXT 34 277 "an  die  SCALA-Variabel  \"\Inhalt\"\"
  145. PAUSE 5
  146. END
  147.  
  148. EVENT Anzeigen
  149. BLANK 640 512 4 lace hires 0
  150. TABS 100 200 300 400 500
  151. MARGINS on 32 607
  152. PALETTE 038 fff ccc aaa 888 666 444 000 c00 d60 fb0 080 58b 53c a2b f3b
  153. FONT helvetica.font 14 24
  154. COLOR 1 7 7 7 7 0 1 7 0 1 2 3 5 4 1
  155. ATTRIBUTES remap kerning
  156. STYLE 0 3 4 3 6 1 1 21 3 1 13 0 2 5 1 0 4 4 3
  157. TEXTWIPE dump speed 1
  158. TEXT 30 30 "!Inhalt"
  159. PAUSE -1
  160. END
  161.